#!/bin/perl
package TestPackage;

sub getTests {
	opendir my $dir, 'tests';
	my @arr = sort readdir $dir;
	my @tests;

	foreach (@arr) {
		if ( $_ ne "." && $_ ne "..") {
			chop $_;
			chop $_;
			push @tests, $_;
		}
	}
	return @tests;
}


sub printTests {
	foreach (@_) {
		printf("$_\n");
	}
}

1;
